--
-- $Id: xpa-sed.adb,v 1.1 2006/04/14 09:46:48 bacon Exp $
--

-- with Ada.Unchecked_Deallocation;
-- with Ada.Unchecked_Conversion;

with Ada.Text_IO;

package body XPA.Sed is

--	procedure Dispose is 
--		new ada.unchecked_deallocation (Sed_Type, Sed_Access);

	procedure Open (sed: out Sed_Type) is
	begin
		sed.option := 100;
	end Open;

	procedure Close (sed: in Sed_Type) is
	begin
		Ada.Text_IO.Put_Line ("sed.Close");
	end Close;

	procedure Compile (sed: in Sed_Type; script: in Script_Type'Class) is
	begin
		Ada.Text_IO.Put_Line ("sed.Parse");
	end Compile;

	procedure Execute (sed: in Sed_Type) is
	begin
		Ada.Text_IO.Put_Line ("sed.Execute");
	end Execute;

end XPA.Sed;
